Object subclass: #RecursivePreorderTraversal
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'BinTree'!

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

RecursivePreorderTraversal class
	instanceVariableNames: ''!

!RecursivePreorderTraversal class methodsFor: 'as yet unclassified' stamp: 'RGB 3/8/2011 14:23'!
print:theTree
	"print a tree using preorder traversal"
	Transcript show: (theTree label); show: ' '.
	((theTree leftKid) notNil) ifTrue: [ RecursivePreorderTraversal print:(theTree leftKid). ].
	((theTree rightKid) notNil) ifTrue: [ RecursivePreorderTraversal print:(theTree rightKid). ].! !
